home *** CD-ROM | disk | FTP | other *** search
- /* Error handling for AmiPCB *** SIGNAL ON ERROR */
- parse arg lg,script,linenbr
- select
- when lg=1 then 'MESSAGE("Script: 'script'"+CHR(10)+"Erreur en ligne 'linenbr'")'
- when lg=2 then 'MESSAGE("Skript: 'script'"+CHR(10)+"Fehler in Zeile 'linenbr'")'
- otherwise 'MESSAGE("Script: 'script'"+CHR(10)+"Error in line 'linenbr'")'
- end
- return 0
-